# name : generate date sequence
# key : seq.date
# contributor : Shuguang Sun
# --
seq.dates <- seq(from = as.Date("$1"), to = as.Date("$2"), by = "$3")